home *** CD-ROM | disk | FTP | other *** search
/ Programmer Power Tools / Programmer Power Tools.iso / pcmag / vol8n07.arc / LASERLST.BAS < prev    next >
Encoding:
BASIC Source File  |  1989-01-17  |  8.9 KB  |  122 lines
  1. 100 REM - BASIC PROGRAM TO CREATE LASERLST.COM
  2. 110 CLS:PRINT "Creating LASERLST.COM": OPEN "LASERLST.COM" AS #1 LEN = 1
  3. 120 FIELD #1, 1 AS A$: CHECKSUM#=0
  4. 130 FOR I = 1 TO   103
  5. 140  LINESUM#=0: LOCATE 2,3: PRINT "Countdown: "   103 - I ;
  6. 150  FOR J = 1 TO  16: READ BYTE$: BYTE = VAL("&H" + BYTE$)
  7. 160   CHECKSUM# = CHECKSUM# + BYTE: LINESUM# = LINESUM# + BYTE
  8. 170   IF (BYTE < 256) THEN LSET A$=CHR$(BYTE): PUT #1
  9. 180  NEXT J
  10. 190  READ LINETOT$: LINECHECK# = VAL("&H"+LINETOT$)
  11. 200  IF LINECHECK# = LINESUM# THEN GOTO 220
  12. 210  LOCATE 4,2: PRINT "Error in line #"  ;  260 +  10 * I: GOTO 260
  13. 220 NEXT I
  14. 230 CLOSE: READ FILETOT$ : FILECHECK# = VAL(FILETOT$)
  15. 240 IF CHECKSUM# <> FILECHECK# THEN GOTO 260
  16. 250 PRINT: PRINT "LASERLST.COM created successfully": SYSTEM
  17. 260 PRINT: PRINT "LASERLST.COM is not valid!": END
  18. 270 DATA E9, E0,  1, 4C, 61, 73, 65, 72, 4C, 73, 74, 20, 31, 2E, 30, 20,   5C3
  19. 280 DATA 28, 63, 29, 20, 31, 39, 38, 39, 20, 5A, 69, 66, 66, 20, 43, 6F,   430
  20. 290 DATA 6D, 6D, 75, 6E, 69, 63, 61, 74, 69, 6F, 6E, 73, 20, 43, 6F, 2E,   617
  21. 300 DATA  D,  A, 50, 43, 20, 4D, 61, 67, 61, 7A, 69, 6E, 65, FE, 20, 4D,   561
  22. 310 DATA 69, 63, 68, 61, 65, 6C, 20, 48, 6F, 6C, 6D, 65, 73, 20, 26, 20,   554
  23. 320 DATA 42, 6F, 62, 20, 46, 6C, 61, 6E, 64, 65, 72, 73,  D,  A,  D,  A,   490
  24. 330 DATA 24,  0,  0,  0,  0,  4,  0,  8,  0,  0,  0, 1B, 26, 64, 44, 6D,   186
  25. 340 DATA 6D, 2F, 64, 64, 2F, 79, 79, 79, 79, 20, 20, 68, 68, 3A, 6D, 6D,   59B
  26. 350 DATA 20, 20, 20, 20, 20, 20, 20, 46, 69, 6C, 65, 6E, 61, 6D, 65, 3A,   43B
  27. 360 DATA 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20,   200
  28. 370 DATA 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20,   200
  29. 380 DATA 20, 20, 20, 20, 20, 20, 20, 20, 50, 61, 67, 65, 78, 78, 78, 78,   45D
  30. 390 DATA  D,  A,  A, 1B, 26, 64, 40, 46, 69, 6C, 65, 20, 6E, 6F, 74, 20,   417
  31. 400 DATA 66, 6F, 75, 6E, 64, 2E,  D,  A, 24, 43, 6F, 75, 6C, 64, 20, 6E,   50A
  32. 410 DATA 6F, 74, 20, 6F, 70, 65, 6E, 20, 6F, 75, 74, 70, 75, 74, 20, 66,   60C
  33. 420 DATA 69, 6C, 65, 2E,  D,  A, 24,  D,  A, 53, 59, 4E, 54, 41, 58, 3A,   3DB
  34. 430 DATA  9, 4C, 41, 53, 45, 52, 4C, 53, 54, 20, 5B, 64, 3A, 5D, 5B, 70,   4B4
  35. 440 DATA 61, 74, 68, 5D, 66, 69, 6C, 65, 6E, 61, 6D, 65, 5B, 2E, 65, 78,   641
  36. 450 DATA 74, 5D, 20, 5B, 6F, 75, 74, 66, 69, 6C, 65, 5D, 20, 5B, 2F, 54,   59F
  37. 460 DATA 6E, 5D,  D,  A,  A, 20, 20, 6F, 66, 69, 6C, 65, 20, 64, 65, 66,   48A
  38. 470 DATA 61, 75, 6C, 74, 73, 20, 74, 6F, 20, 4C, 50, 54, 31, 3A,  D,  A,   4BE
  39. 480 DATA 20, 20, 6E, 20, 69, 73, 20, 74, 61, 62, 20, 77, 69, 64, 74, 68,   541
  40. 490 DATA 20, 28, 31, 36, 20, 6D, 61, 78, 29,  D,  A, 24, 1B, 45, 1B, 26,   31A
  41. 500 DATA 6C, 31, 4F, 1B, 28, 73, 31, 37, 48, 1B, 26, 6C, 35, 2E, 31, 34,   3C7
  42. 510 DATA 43, 1B, 26, 6C, 37, 31, 46, 1B, 26, 6C, 36, 45, 1B, 28, 73, 2D,   3A9
  43. 520 DATA 33, 42, 1B, 26, 61, 30, 52, 1B, 26, 61, 38, 35, 4D, 1B, 26, 61,   397
  44. 530 DATA 35, 4C,  D,  C, 1B, 45, 1B, 26, 61, 30, 52, 1B, 26, 61, 39, 30,   329
  45. 540 DATA 4D, 1B, 26, 61, 38, 38, 4C,  D,  A,  D,  A, 7C,  D,  A, 1B, 26,   2AD
  46. 550 DATA 61, 30, 52, 1B, 26, 61, 31, 37, 31, 4D, 1B, 26, 61, 39, 31, 4C,   3C3
  47. 560 DATA  D,  C, 1B, 26, 61, 30, 52, 1B, 26, 61, 38, 35, 4D, 1B, 26, 61,   33B
  48. 570 DATA 35, 4C,  D, E8, 23,  0, E8, 70,  0, 72, 12, E8,  9,  1, E8, 4B,   59A
  49. 580 DATA  1,  B, F6, 75, F6, 8B, 1E, C5,  7, B4, 3E, CD, 21, B4, 4F, CD,   792
  50. 590 DATA 21, 73, E3, BA, 60,  1, E8, BB,  1, FC, B4, 19, CD, 21, A2, 75,   804
  51. 600 DATA  7, BE, 76,  7, C6,  4, 5C, 46, 32, D2, B4, 47, CD, 21, BA,  3,   658
  52. 610 DATA  1, B4,  9, CD, 21, E8, B4,  1, 83, 3E, 63,  1,  0, 74, 15, 8B,   582
  53. 620 DATA 16, 63,  1, B4, 3C, 33, C9, CD, 21, 73,  6, BA, D9,  1, E8, 83,   6CC
  54. 630 DATA  1, A3, 65,  1, E8, 14,  2, B4, 4E, BA, B7,  7, 33, C9, CD, 21,   66C
  55. 640 DATA 73,  6, BA, C7,  1, E8, 6C,  1, C3, BA, 9E,  0, B8,  0, 3D, CD,   72D
  56. 650 DATA 21, 73,  1, C3, A3, C5,  7, C6,  6, C4,  7,  0, 90, BE, 9E,  0,   64A
  57. 660 DATA BF, 91,  1, 57, B0, 20, B9,  F,  0, F3, AA, 5F, AC,  A, C0, 74,   726
  58. 670 DATA  3, AA, EB, F8, B3, 30, A1, 98,  0, 50, 50, B1,  5, D3, E8, 25,   7E2
  59. 680 DATA  F,  0, B9,  2,  0, BF, 6F,  1, E8, A5,  3, 58, 25, 1F,  0, B9,   4DE
  60. 690 DATA  2,  0, BF, 72,  1, E8, 98,  3, 58, B1,  9, D3, E8,  5, BC,  7,   64C
  61. 700 DATA B9,  4,  0, BF, 75,  1, E8, 87,  3, A1, 96,  0, 50, B1,  B, D3,   67A
  62. 710 DATA E8, B9,  2,  0, BF, 7B,  1, E8, 76,  3, 58, B1,  5, D3, E8, 25,   72D
  63. 720 DATA 3F,  0, B9,  2,  0, BF, 7E,  1, E8, 65,  3, B4, 40, BB,  1,  0,   538
  64. 730 DATA B9, 35,  0, BA, 6F,  1, CD, 21, B4, 40, BB,  1,  0, B9,  2,  0,   571
  65. 740 DATA BA, 5E,  1, CD, 21, F8, C3, 50, 53, 52, BE,  0,  0, 80, 3E, C4,   6F7
  66. 750 DATA  7,  1, 74, 34, B4, 3F, 8B, 1E, C5,  7, B9,  0,  8, 90, BA, C7,   5EA
  67. 760 DATA  7, CD, 21, 72, 23,  B, C0, 74, 1F, BE, C7,  7, 8B, C8, 8B, D8,   72A
  68. 770 DATA 8B, FE, B0, 1A, F2, AE, 75,  9, 41, F7, D9, C6,  6, C4,  7,  1,   81A
  69. 780 DATA 90,  3, CB, 75,  3, BE,  0,  0, 5A, 5B, 58, C3,  B, F6, 75,  4,   5DE
  70. 790 DATA E8, A3,  2, C3, 50, 53, 51, 52, 56, 80, 3E, 6A,  1,  0, 75,  3,   58D
  71. 800 DATA E8, 65,  2, E8, 74,  1, 8B, D6, 8B, D9, 33, C9, 8A, 26, C7,  F,   7F3
  72. 810 DATA AC, 3C,  C, 75,  D, E8, C2,  1, E8, F1,  1, 32, E4, 4B, 42, EB,   789
  73. 820 DATA 42, 90, 3C,  A, 75,  D, 4B, 41, E8, AF,  1, 32, E4, E8, 27,  2,   5E5
  74. 830 DATA EB, 31, 90, 3C,  D, 75,  2, EB,  8, 3C,  8, 75,  8, FE, CC, 79,   663
  75. 840 DATA  6, 32, E4, EB,  2, FE, C4, 41, 4B, 80, FC, 51, 7C, 15, E8, 89,   826
  76. 850 DATA  1, 51, 52, BA, 5E,  1, B9,  2,  0, E8, 4D,  2, 5A, 59, 32, E4,   578
  77. 860 DATA E8, F4,  1,  B, DB, 75, A9, E8, 70,  1, 88, 26, C7,  F, 5E, 5A,   776
  78. 870 DATA 59, 5B, 58, C3, B4,  9, CD, 21, 8A, 16, 75,  7, B4,  E, CD, 21,   646
  79. 880 DATA BA, 76,  7, B4, 3B, CD, 21, B8,  0, 4C, CD, 21, E8, 27,  2, BE,   6D5
  80. 890 DATA 81,  0, AC, 3C, 2F, 74, 2A, 3C,  D, 74, 1B, 3C, 20, 76, F3, E8,   5BB
  81. 900 DATA 3A,  0, 72, 32, AC, 3C,  D, 74,  D, 3C, 2F, 74, 14, 3C, 20, 77,   41A
  82. 910 DATA F3, E8, 47,  0, EB, DC, E8, 42,  0, 83, 3E, 61,  1,  0, 74, 16,   6C0
  83. 920 DATA C3, E8, 37,  0, AC, 3C, 54, 75,  D, E8,  7,  2, 3D, 10,  0, 7F,   55D
  84. 930 DATA C1, A3, 67,  1, EB, BC, BA, F7,  1, E8, 98, FF, 8D, 5C, FF, 83,   A0F
  85. 940 DATA 3E, 61,  1,  0, 75,  6, 89, 1E, 61,  1, EB,  D, 83, 3E, 63,  1,   441
  86. 950 DATA  0, 74,  2, F9, C3, 89, 1E, 63,  1, F8, C3, 80, 7C, FE, 3A, 75,   7A1
  87. 960 DATA  5, C6, 44, FE,  0, C3, C6, 44, FF,  0, C3, 8B, 3E, 61,  1, 80,   747
  88. 970 DATA 7D,  1, 3A, 75,  C, 8A, 15, 80, EA, 41, B4,  E, CD, 21, 83, C7,   67D
  89. 980 DATA  2, 57, 8B, DF, 32, C0, B9, 80,  0, FC, F2, AE, 8D, 75, FF, B9,   944
  90. 990 DATA  0,  0, 3B, F3, 74, 37, 4E, 80, 3C, 5C, 74,  7, 41, 3B, F3, 74,   59D
  91. 1000 DATA  3, EB, F3, 46,  B, C9, 74, 25, 83, F9,  C, 77, 26, 56, BF, B7,   785
  92. 1010 DATA  7, 41, F3, A4, 5E, 5F, 3B, F3, 74, 1F, 43, 3B, F3, 74,  1, 4E,   691
  93. 1020 DATA C6,  4,  0, 8B, D7, B4, 3B, CD, 21, 73,  E, EB,  6, BA, F7,  1,   72D
  94. 1030 DATA E8,  1, FF, BA, C7,  1, E8, FB, FE, C3, 50, 53, 52, 57, BF, C8,   9E1
  95. 1040 DATA  F, AC, 3C,  9, 75, 1A, A1, 71,  7, 48, 33, D2, 8B, 1E, 67,  1,   506
  96. 1050 DATA F7, FB, 2B, DA, B0, 20, AA, FF,  6, 71,  7, 4B, 75, F8, EB, 2C,   8BD
  97. 1060 DATA 3C,  D, 74,  4, 3C,  C, 75,  8, C7,  6, 71,  7,  0,  0, EB, 13,   3C9
  98. 1070 DATA 3C,  8, 75,  F, AA, FF,  E, 71,  7, 75, 11, C7,  6, 71,  7,  1,   4C3
  99. 1080 DATA  0, EB,  9, AA, 3C,  A, 74,  4, FF,  6, 71,  7, E2, B3, BE, C8,   6F4
  100. 1090 DATA  F, 8B, CF, 2B, CE, 5F, 5A, 5B, 58, C3, E3, 11, 80, 3E, 69,  1,   6AD
  101. 1100 DATA  1, 75,  3, E8, 26,  0, E8, C0,  0,  3, D1, 33, C9, C3, 50, 53,   665
  102. 1110 DATA 57, A1, 6F,  7, B9,  4,  0, B3, 20, BF, BC,  1, E8, F1,  0, BA,   70D
  103. 1120 DATA 6B,  1, B9, 5C,  0, E8, A1,  0, 5F, 5B, 58, C3, 53, 51, 52, F7,   6CC
  104. 1130 DATA  6, 6F,  7,  1,  0, 74, 21, BA, A6,  2, B9, 15,  0, E8, 89,  0,   4B3
  105. 1140 DATA BB, 42,  0, B9,  3,  0, BA, BB,  2, E8, 7D,  0, 4B, 75, FA, BA,   709
  106. 1150 DATA BE,  2, B9, 13,  0, EB,  7, 90, BA, D1,  2, B9, 12,  0, E8, 68,   6B6
  107. 1160 DATA  0, C7,  6, 73,  7,  1,  0, C6,  6, 69,  1,  0, FF,  6, 6F,  7,   3F9
  108. 1170 DATA E8, 9B, FF, 5A, 59, 5B, C3, FF,  6, 73,  7, 83, 3E, 73,  7, 42,   74F
  109. 1180 DATA 7E,  5, C6,  6, 69,  1,  1, C3, 51, 52, BA, 6C,  2, B9, 37,  0,   538
  110. 1190 DATA E8, 36,  0, C7,  6, 6F,  7,  1,  0, C7,  6, 71,  7,  1,  0, C7,   46F
  111. 1200 DATA  6, 73,  7,  1,  0, C6,  6, 6A,  1,  1, C6,  6, C7,  F,  0, 90,   3EB
  112. 1210 DATA E8, 5B, FF, 5A, 59, C3, 51, 52, BA, A3,  2, B9,  3,  0, E8,  8,   766
  113. 1220 DATA  0, C6,  6, 6A,  1,  0, 5A, 59, C3, 50, 53, B4, 40, 8B, 1E, 65,   552
  114. 1230 DATA  1, CD, 21, 5B, 58, C3, 56, 57, BE, 81,  0, 8B, FE, FC, AC, 3C,   7BE
  115. 1240 DATA  D, 74,  D, 3C, 61, 72,  6, 3C, 7A, 77,  2, 2C, 20, AA, EB, EE,   5A1
  116. 1250 DATA 5F, 5E, C3, 33, C0, 80, 3C, 30, 72, 15, 80, 3C, 39, 77, 10, 32,   594
  117. 1260 DATA E4, B3,  A, F6, E3, 8A, 1C, 80, E3,  F,  2, C3, 46, EB, E6, C3,   931
  118. 1270 DATA 50, 53, 51, 52, 57, 9C, FD,  3, F9, 4F, 53, BB,  A,  0,  B, C0,   664
  119. 1280 DATA 74, 11, 33, D2, F7, FB, 80, CA, 30, 88, 15, 4F, 49, 75, EF, 5B,   7EA
  120. 1290 DATA EB,  6, 90, 58, AA, 49, 75, FC, 9D, 5F, 5A, 59, 5B, 58, C3,  0,   762
  121. 1300 DATA 155026
  122.